The Trig Explorer/The Trig Explorer.iso/mac/Explorer/SINE-PUZ.dxr/00076.ls

Text File | 1998-07-22 | 5.4 KB | 197 lines

global S6, S7, S8, S9, S10, S11, AA, AB, AC, BA, BB, BC, CA, CB, CC, DA, DB, DC

on enterFrame
  global selection
  if selection = "A" then
    set n to 53
  end if
  if selection = "B" then
    set n to 54
  end if
  if selection = "C" then
    set n to 55
  end if
  if selection = "D" then
    set n to 56
  end if
  if rollOver(15) then
    set the castNum of sprite 15 to n
    PS6()
  end if
  if rollOver(16) then
    set the castNum of sprite 16 to n
    PS6()
  end if
  if rollOver(17) then
    set the castNum of sprite 17 to n
    PS8()
  end if
  if rollOver(18) then
    set the castNum of sprite 18 to n
    PS8()
  end if
  if rollOver(19) then
    set the castNum of sprite 19 to n
    PS10()
  end if
  if rollOver(20) then
    set the castNum of sprite 20 to n
    PS10()
  end if
  if rollOver(21) then
    set the castNum of sprite 21 to n
    PS7()
  end if
  if rollOver(22) then
    set the castNum of sprite 22 to n
    PS7()
  end if
  if rollOver(23) then
    set the castNum of sprite 23 to n
    PS9()
  end if
  if rollOver(24) then
    set the castNum of sprite 24 to n
    PS9()
  end if
  if rollOver(25) then
    set the castNum of sprite 25 to n
    PS11()
  end if
  if rollOver(26) then
    set the castNum of sprite 26 to n
    PS11()
  end if
  updateStage()
end

on exitFrame
  go("Ploop")
end

on PS6
  set xA to the left of sprite 6 + 1
  set yA to the bottom of sprite 6 - 48
  set A1 to value(char 1 of S6 & "A")
  set B1 to value(char 1 of S6 & "B")
  set C1 to value(char 1 of S6 & "C")
  set A2 to value(char 2 of S6 & "A")
  set B2 to value(char 2 of S6 & "B")
  set C2 to value(char 2 of S6 & "C")
  set the trails of sprite 27 to 1
  repeat with n = 1 to 89
    set x to n * 2.0 * PI / 180.0
    set x1 to (n * 2) + xA
    set y1 to yA - ((18.0 * A1 * sin((B1 * x) + (C1 * PI / 180.0))) + (18.0 * A2 * sin((B2 * x) + (C2 * PI / 180.0))))
    set the locH of sprite 27 to x1
    set the locV of sprite 27 to y1
    updateStage()
  end repeat
  set the trails of sprite 27 to 0
end

on PS7
  set xA to the left of sprite 7 + 1
  set yA to the bottom of sprite 7 - 48
  set A1 to value(char 1 of S7 & "A")
  set B1 to value(char 1 of S7 & "B")
  set C1 to value(char 1 of S7 & "C")
  set A2 to value(char 2 of S7 & "A")
  set B2 to value(char 2 of S7 & "B")
  set C2 to value(char 2 of S7 & "C")
  set the trails of sprite 28 to 1
  repeat with n = 1 to 89
    set x to n * 2.0 * PI / 180.0
    set x1 to (n * 2) + xA
    set y1 to yA - ((18.0 * A1 * sin((B1 * x) + (C1 * PI / 180.0))) + (18.0 * A2 * sin((B2 * x) + (C2 * PI / 180.0))))
    set the locH of sprite 28 to x1
    set the locV of sprite 28 to y1
    updateStage()
  end repeat
  set the trails of sprite 28 to 0
end

on PS8
  set xA to the left of sprite 8 + 1
  set yA to the bottom of sprite 8 - 48
  set A1 to value(char 1 of S8 & "A")
  set B1 to value(char 1 of S8 & "B")
  set C1 to value(char 1 of S8 & "C")
  set A2 to value(char 2 of S8 & "A")
  set B2 to value(char 2 of S8 & "B")
  set C2 to value(char 2 of S8 & "C")
  set the trails of sprite 29 to 1
  repeat with n = 1 to 89
    set x to n * 2.0 * PI / 180.0
    set x1 to (n * 2) + xA
    set y1 to yA - ((18.0 * A1 * sin((B1 * x) + (C1 * PI / 180.0))) + (18.0 * A2 * sin((B2 * x) + (C2 * PI / 180.0))))
    set the locH of sprite 29 to x1
    set the locV of sprite 29 to y1
    updateStage()
  end repeat
  set the trails of sprite 29 to 0
end

on PS9
  set xA to the left of sprite 9 + 1
  set yA to the bottom of sprite 9 - 48
  set A1 to value(char 1 of S9 & "A")
  set B1 to value(char 1 of S9 & "B")
  set C1 to value(char 1 of S9 & "C")
  set A2 to value(char 2 of S9 & "A")
  set B2 to value(char 2 of S9 & "B")
  set C2 to value(char 2 of S9 & "C")
  set the trails of sprite 30 to 1
  repeat with n = 1 to 89
    set x to n * 2.0 * PI / 180.0
    set x1 to (n * 2) + xA
    set y1 to yA - ((18.0 * A1 * sin((B1 * x) + (C1 * PI / 180.0))) + (18.0 * A2 * sin((B2 * x) + (C2 * PI / 180.0))))
    set the locH of sprite 30 to x1
    set the locV of sprite 30 to y1
    updateStage()
  end repeat
  set the trails of sprite 30 to 0
end

on PS10
  set xA to the left of sprite 10 + 1
  set yA to the bottom of sprite 10 - 48
  set A1 to value(char 1 of S10 & "A")
  set B1 to value(char 1 of S10 & "B")
  set C1 to value(char 1 of S10 & "C")
  set A2 to value(char 2 of S10 & "A")
  set B2 to value(char 2 of S10 & "B")
  set C2 to value(char 2 of S10 & "C")
  set the trails of sprite 31 to 1
  repeat with n = 1 to 89
    set x to n * 2.0 * PI / 180.0
    set x1 to (n * 2) + xA
    set y1 to yA - ((18.0 * A1 * sin((B1 * x) + (C1 * PI / 180.0))) + (18.0 * A2 * sin((B2 * x) + (C2 * PI / 180.0))))
    set the locH of sprite 31 to x1
    set the locV of sprite 31 to y1
    updateStage()
  end repeat
  set the trails of sprite 31 to 0
end

on PS11
  set xA to the left of sprite 11 + 1
  set yA to the bottom of sprite 11 - 48
  set A1 to value(char 1 of S11 & "A")
  set B1 to value(char 1 of S11 & "B")
  set C1 to value(char 1 of S11 & "C")
  set A2 to value(char 2 of S11 & "A")
  set B2 to value(char 2 of S11 & "B")
  set C2 to value(char 2 of S11 & "C")
  set the trails of sprite 32 to 1
  repeat with n = 1 to 88
    set x to n * 2.0 * PI / 180.0
    set x1 to (n * 2) + xA
    set y1 to yA - ((18.0 * A1 * sin((B1 * x) + (C1 * PI / 180.0))) + (18.0 * A2 * sin((B2 * x) + (C2 * PI / 180.0))))
    set the locH of sprite 32 to x1
    set the locV of sprite 32 to y1
    updateStage()
  end repeat
  set the trails of sprite 32 to 0
end